home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / BBS / CTNEWS54.ZIP / LOGON.ZIP / LOGON.WCX (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1995-06-05  |  1.5 KB  |  137 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1584 bytes  03/05/125  06:46:20pm
  3. '! Code Segment Size  :1194 bytes
  4. '! Data Segment Size  :4814 bytes
  5. '! String Segment Size:390 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Sub Sub737
  9.       Declare Function Func1043(l65534 As Long) As String
  10.  
  11.       Dim dt4463 As DateTime
  12.       Dim i4469 As Integer
  13.       Dim i4472 As Integer
  14.       Dim i4474 As Integer
  15.       Dim w4476 As Word
  16.       Dim nir4478 As NodeInfoRecord
  17.       Dim s4664 As String*79
  18.       Dim i4747 As Integer
  19.       Dim sr4749 As SearchRec
  20.       Dim w4798 As Word
  21.       Dim d4800 As Date
  22.       Dim t4802 As Time
  23.       Dim s4806 As String
  24.       Dim s4810 As String
  25.  
  26.       Dim l65532_ As Long
  27.  
  28.       CurrentDateTime dt4463
  29.       i4469 = - 1
  30.       w4476 = 0
  31.       i4472 = Node
  32.       i4474 = MaxNode
  33.       s4806 = Trim(MakeWild.SysopName)
  34.       s4806 = UCase(MakeWild.SysopName)
  35.       If Local And User.Name = s4806 Then
  36.         CheckMailAtLogon 
  37.         End 
  38.       End If
  39.   142 If Not FastLogon Then
  40.         If Not Local Then
  41.           Sub737
  42.         End If
  43.   170   DisplayGroupFiles 
  44.         SubText 1, Func1043(NodeInfo.CallerNum)
  45.         l65532_ = dt4463.T.Number Div 60
  46.         If l65532_ >= 0 And l65532_ <= 719 Then
  47.           DisplayPrompt 1365
  48.         Else
  49.   247     If l65532_ >= 720 And l65532_ <= 1079 Then
  50.             DisplayPrompt 1366
  51.           Else
  52.   287       If l65532_ >= 1080 And l65532_ <= 1440 Then
  53.               DisplayPrompt 1367
  54.               GoTo 327
  55.             End If
  56.           End If
  57.         End If
  58.   327   If FormatDate(dt4463.D, "mm/dd") = FormatDate(User.BirthDate, "mm/dd") Then
  59.           If Not DisplayFile("birthday") Then
  60.             Beep 
  61.             Print
  62.             Print "Happy birthday @FIRST@!"
  63.           End If
  64.   392     ActivityLog "Birthday Greeting Displayed"
  65.         End If
  66.   400   HelloFiles 
  67.         w4798 = FindFirst(Conference.DisplayPath + "\NEWSLTR.BBS", 0, sr4749)
  68.         d4800 = sr4749.Date '! 2 bytes
  69.         t4802 = sr4749.Time '! 4 bytes
  70.         WaitEnter 
  71.         If User.LastCall.D.Number <= d4800.Number Then
  72.           DisplayFile("NewsLtr")
  73.           ActivityLog "Newsletter File Displayed"
  74.         End If
  75.   502   If Not ANSIDetected Then
  76.           s4810 = Conference.DisplayPath + "\NOANSI.BBS"
  77.           If Exists(s4810) Then
  78.             DisplayTextFile(s4810)
  79.             ActivityLog "NO ANSI File Displayed"
  80.           End If
  81.         End If
  82.   564   CheckBulletins 
  83.         QuoteOfTheDay 
  84.         CheckMailAtLogon 
  85.       Else
  86.   579   If FastLogonChar <> "!" Then
  87.           If Not Local Then
  88.             Sub737
  89.           End If
  90.   612     Print "@00@Command >> @0E@"
  91.           CheckMailAtLogon 
  92.           w4798 = FindFirst(Conference.DisplayPath + "\NEWSLTR.BBS", 0, sr4749)
  93.           d4800 = sr4749.Date '! 2 bytes
  94.           t4802 = sr4749.Time '! 4 bytes
  95.           If User.LastCall.D.Number <= d4800.Number Then
  96.             DisplayFile("NewsLtr")
  97.             ActivityLog "Newsletter File Displayed"
  98.           End If
  99.         End If
  100.       End If
  101.   720 End 
  102.  
  103. '! Called 2 times
  104.       Sub Sub737
  105.         Do
  106.   746     i4469 = i4469 + 1
  107.           GetNodeInfo nir4478, i4469
  108.           If nir4478.NodeStatus >= 3 And i4469 <> i4472 Then
  109.             i4747 = Int(Rnd(100) * 100)
  110.             If i4747 <= 33 Then
  111.               s4664 = "@0C@*NOTICE*@0B@ " + User.Name + " has just arrived on node " + Str(i4472)
  112.             Else
  113.   888         If i4747 >= 34 And i4747 <= 66 Then
  114.                 s4664 = "@0C@HEY!!!@0A@ " + User.Name + " has just logged on to node: " + Str(i4472)
  115.               Else
  116.   960           s4664 = "@0C@LOOK!!@0D@ " + User.Name + " has just dropped in on node " + Str(i4472) + " !!"
  117.               End If
  118.             End If
  119.  1007       SendPage(i4469, s4664)
  120.           End If
  121.  1022   Loop Until i4469 >= i4474
  122.       End Sub
  123.  
  124. '! Called 1 time
  125.       Function Func1043(l65534 As Long) As String
  126.         Dim i65524 As Integer
  127.         Dim s65526 As String
  128.  
  129.         s65526 = Str(l65534)
  130.         i65524 = Len(s65526) - 2
  131.  1082   Do While i65524 > 1
  132.           s65526 = Left(s65526, i65524 - 1) + "," + Right(s65526, Len(s65526) - i65524 + 1)
  133.           i65524 = i65524 - 3
  134.         Loop
  135.  1171   Func1043 = s65526
  136.       End Function
  137.